home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / pcmcia / socket / intrupt.scr < prev    next >
Encoding:
Text File  |  1994-05-12  |  2.2 KB  |  64 lines
  1. @thread intrupt.log
  2. @newalias AC1 PCMC.GRA
  3. AC1 SET SOCKET=0
  4. AC1 SET ADAPTER=0
  5.  
  6. AC1 PCMC_OPEN
  7. * ----- reseting the system's interrupts to zero -----
  8.  
  9. AC1 PCMC_ACKINTERRUPT
  10. AC1 PCMC_ACKINTERRUPT
  11.  
  12. * ----- only insert card into socket 1 -----
  13.  
  14. AC1 RESPONSE $PROMPT="INSERT A CARD, ENTER..."  $RESPONSE=JUNK $PAUSE=-1
  15. AC1 PCMC_ACKINTERRUPT
  16. AC1 PCMC_ACKINTERRUPT
  17.  
  18. * ----- only remove card from socket 1 -----
  19.  
  20. AC1 RESPONSE $PROMPT="REMOVE THE CARD, ENTER" $RESPONSE=JUNK $PAUSE=-1
  21. AC1 PCMC_ACKINTERRUPT
  22. AC1 PCMC_ACKINTERRUPT
  23.  
  24. * ----- insert into and remove once from socket #1 -----
  25. AC1 RESPONSE $PROMPT="INSERT A CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  26. AC1 RESPONSE $PROMPT="REMOVE THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  27. AC1 PCMC_ACKINTERRUPT
  28. AC1 PCMC_ACKINTERRUPT
  29.  
  30. * ----- insert into and remove from twice socket #1 -----
  31. AC1 RESPONSE $PROMPT="INSERT A CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  32. AC1 RESPONSE $PROMPT="REMOVE THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  33. AC1 RESPONSE $PROMPT="INSERT THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  34. AC1 RESPONSE $PROMPT="REMOVE THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  35. AC1 PCMC_ACKINTERRUPT
  36. AC1 PCMC_ACKINTERRUPT
  37.  
  38. * ----- try a different card -----
  39. AC1 RESPONSE $PROMPT="PREPARE A DIFFERENT CARD..." $RESPONSE=JUNK $PAUSE=5
  40. AC1 RESPONSE $PROMPT="INSERT THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  41. AC1 PCMC_ACKINTERRUPT
  42. AC1 PCMC_ACKINTERRUPT
  43.  
  44. * ----- remove the card only -----
  45. AC1 RESPONSE $PROMPT="REMOVE THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  46. AC1 PCMC_ACKINTERRUPT
  47. AC1 PCMC_ACKINTERRUPT
  48.  
  49. * ----- insert into and remove once from socket #1 -----
  50. AC1 RESPONSE $PROMPT="INSERT THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  51. AC1 RESPONSE $PROMPT="REMOVE THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  52. AC1 PCMC_ACKINTERRUPT
  53. AC1 PCMC_ACKINTERRUPT
  54.  
  55. * ----- insert into and remove from twice socket #1 -----
  56. AC1 RESPONSE $PROMPT="INSERT THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  57. AC1 RESPONSE $PROMPT="REMOVE THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  58. AC1 RESPONSE $PROMPT="INSERT THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  59. AC1 RESPONSE $PROMPT="REMOVE THE CARD, ENTER..." $RESPONSE=JUNK $PAUSE=-1
  60. AC1 PCMC_ACKINTERRUPT
  61. AC1 PCMC_ACKINTERRUPT
  62.  
  63. AC1 PCMC_CLOSE
  64.